home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / i / image_desk / imagedeskv1.5.dms / in.adf / jpeg codec / Install < prev    next >
Encoding:
Text File  |  1994-12-19  |  3.0 KB  |  145 lines
  1. ;
  2. ; $VER: jpeg_cdc_install 1.0 (16.12.94)
  3. ;
  4. ; Copyright (c) 1994 Christoph Feck, TowerSystems.
  5. ;
  6.  
  7. ;****************************************************************************
  8. ;
  9. ; English texts
  10. ;
  11.  
  12. (set #bad-kick (cat "You must have AmigaOS Release 2.04 or newer to be able "
  13.     "to use the JPEG Codec.")
  14. )
  15.  
  16. (set #temp-file (cat "    To decode certain JPEG images, the Codec needs "
  17.     "a large amount of memory.\n    If the required storage is not available "
  18.     "in main memory, the Codec will create a temporary file on your "
  19.     "harddisk.  The volume on which this file is created should have enough "
  20.     "free space (about 4 meg).\n    A temporary file is usually only "
  21.     "required, if you want to quantize JPEG images to 256 colors.\n\n"
  22.     @askdir-help)
  23. )
  24.  
  25. (set #make-assign (cat "    The logical assignment \"JPEGTMP:\" is used to "
  26.     "refer to the temporary directory.\n    In order to make this assignment "
  27.     "available on every reboot, an \"Assign\" command has to be added to "
  28.     "your \"user-startup\" file.\n\n" @startup-help)
  29. )
  30.  
  31. ;****************************************************************************
  32. ;
  33. ; Setup
  34. ;
  35.  
  36. (set @default-dest "")
  37.  
  38. (set libs-dest "LIBS:")
  39. (set class-dest "SYS:Classes")
  40.  
  41. (if (not (exists class-dest))
  42.     (set class-dest "LIBS:")
  43. )
  44.  
  45. (complete 0)
  46.  
  47. (if (< (/ (getversion) 65536) 37)
  48.     (abort #bad-kick)
  49. )
  50.  
  51. ;****************************************************************************
  52. ;
  53. ; Welcome
  54. ;
  55.  
  56. (welcome)
  57.  
  58. (message "\n\n\nTower JPEG Codec Class\n\nCopyright © 1994 Christoph "
  59.     "Feck, TowerSystems\nAll Rights Reserved.\n\n\n\nPlease refer to the "
  60.     "documentation for details."
  61. )
  62.  
  63. ;****************************************************************************
  64. ;
  65. ; JPEGTMP: assignment
  66. ;
  67.  
  68. (set has-temp 0)
  69.  
  70. (if (exists "JPEGTMP:" (noreq))
  71.     (
  72.         (set has-temp 1)
  73.         (if (= "RAM" (getdevice "JPEGTMP:"))
  74.             (set has-temp 0)
  75.         )
  76.     )
  77. )
  78.  
  79. (if (= has-temp 0)
  80.     (
  81.         (set jpeg-tmp (askdir (help #temp-file) (prompt "Select a directory for temporary files, not in RAM:") (default "SYS:")))
  82.         (startup "JPEG Codec"
  83.             (help #make-assign)
  84.             (prompt "An assignment has to be added to your user-startup.")
  85.             (command "Assign JPEGTMP: \"" jpeg-tmp "\"")
  86.         )
  87.         (makeassign "JPEGTMP" jpeg-tmp)
  88.     )
  89. )
  90.  
  91. (complete 10)
  92.  
  93. ;****************************************************************************
  94. ;
  95. ; Install libraries and classes
  96. ;
  97.  
  98. (copylib
  99.     (help @copylib-help)
  100.     (prompt "Copying tower.library...")
  101.     (source "Libs/tower.library")
  102.     (dest libs-dest)
  103.     (confirm)
  104. )
  105.  
  106. (complete 30)
  107.  
  108. (copylib
  109.     (help @copylib-help)
  110.     (prompt "Copying codec.class...")
  111.     (source "Classes/codec.class")
  112.     (dest class-dest)
  113.     (confirm)
  114. )
  115.  
  116. (complete 50)
  117.  
  118. (copylib
  119.     (help @copylib-help)
  120.     (prompt "Copying picture.codec...")
  121.     (source "Classes/Codecs/picture.codec")
  122.     (dest (tackon class-dest "Codecs"))
  123.     (confirm)
  124. )
  125.  
  126. (complete 70)
  127.  
  128. (copylib
  129.     (help @copylib-help)
  130.     (prompt "Copying jpeg.codec...")
  131.     (source "Classes/Codecs/jpeg.codec")
  132.     (dest (tackon class-dest "Codecs"))
  133.     (confirm)
  134. )
  135.  
  136. ;****************************************************************************
  137. ;
  138. ; Exit
  139. ;
  140.  
  141. (run "Avail >NIL: FLUSH")
  142. (complete 100)
  143. (exit)
  144.  
  145.